;Exam2012H24Fall2
;Exam2012H24H2 VtgɂZ
;-------------------------
MAIN START
	LD GR0,M ;@搔
	LD GR2,N ;@@
	CALL MULT
	ST GR0,ANS
	RET
M DC 101
N DC 33
ANS DS 1 ;@Z
	END
;-------------------
MULT START
	RPUSH
	LD GR1,GR0
	LD GR0,=0   ;Zʂ̏
	LD GR2,GR2  ;搔GR2̓[ł邩H
LP	JZE FIN ;@J
;搔GR2E_Vtǧʃ[ɂȂΏI
	LD GR3,GR2
	AND GR3,=#0001 ; ŉʃrbg̃`FbN
	JZE CONT
	ADDL GR0,GR1
CONT SLL GR1,1 ; @G
	SRL GR2,1
	JUMP LP
FIN RPOP
	RET
	END
;----------------
POLY START
	RPUSH
	LD GR4,=0 ;
LP1 LD GR3,GR1
	JZE FIN
	LD GR0,=1
LP2 LD GR3,GR3
	JZE BRK
	CALL MULT
	LAD GR3,-1,GR3
	JUMP LP2
BRK ADDL GR4,GR0
	LAD GR1,-1,GR1
	JUMP LP1
FIN LD GR0,GR4
	RPOP
	RET
	END
;---------------------------
